home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / msm-1 / icont.sit / parse.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-09-19  |  51.9 KB  |  1,886 lines  |  [TEXT/MPS ]
  1. # define CSETLIT 257
  2. # define EOFX 258
  3. # define IDENT 259
  4. # define INTLIT 260
  5. # define REALLIT 261
  6. # define STRINGLIT 262
  7. # define BREAK 263
  8. # define BY 264
  9. # define CASE 265
  10. # define CREATE 266
  11. # define DEFAULT 267
  12. # define DO 268
  13. # define ELSE 269
  14. # define END 270
  15. # define EVERY 271
  16. # define FAIL 272
  17. # define GLOBAL 273
  18. # define IF 274
  19. # define INITIAL 275
  20. # define INVOCABLE 276
  21. # define LINK 277
  22. # define LOCAL 278
  23. # define NEXT 279
  24. # define NOT 280
  25. # define OF 281
  26. # define PROCEDURE 282
  27. # define RECORD 283
  28. # define REPEAT 284
  29. # define RETURN 285
  30. # define STATIC 286
  31. # define SUSPEND 287
  32. # define THEN 288
  33. # define TO 289
  34. # define UNTIL 290
  35. # define WHILE 291
  36. # define ASSIGN 292
  37. # define AT 293
  38. # define AUGACT 294
  39. # define AUGAND 295
  40. # define AUGEQ 296
  41. # define AUGEQV 297
  42. # define AUGGE 298
  43. # define AUGGT 299
  44. # define AUGLE 300
  45. # define AUGLT 301
  46. # define AUGNE 302
  47. # define AUGNEQV 303
  48. # define AUGSEQ 304
  49. # define AUGSGE 305
  50. # define AUGSGT 306
  51. # define AUGSLE 307
  52. # define AUGSLT 308
  53. # define AUGSNE 309
  54. # define BACKSLASH 310
  55. # define BANG 311
  56. # define BAR 312
  57. # define CARET 313
  58. # define CARETASGN 314
  59. # define COLON 315
  60. # define COMMA 316
  61. # define CONCAT 317
  62. # define CONCATASGN 318
  63. # define CONJUNC 319
  64. # define DIFF 320
  65. # define DIFFASGN 321
  66. # define DOT 322
  67. # define EQUIV 323
  68. # define INTER 324
  69. # define INTERASGN 325
  70. # define LBRACE 326
  71. # define LBRACK 327
  72. # define LCONCAT 328
  73. # define LCONCATASGN 329
  74. # define LEXEQ 330
  75. # define LEXGE 331
  76. # define LEXGT 332
  77. # define LEXLE 333
  78. # define LEXLT 334
  79. # define LEXNE 335
  80. # define LPAREN 336
  81. # define MCOLON 337
  82. # define MINUS 338
  83. # define MINUSASGN 339
  84. # define MOD 340
  85. # define MODASGN 341
  86. # define NOTEQUIV 342
  87. # define NUMEQ 343
  88. # define NUMGE 344
  89. # define NUMGT 345
  90. # define NUMLE 346
  91. # define NUMLT 347
  92. # define NUMNE 348
  93. # define PCOLON 349
  94. # define PLUS 350
  95. # define PLUSASGN 351
  96. # define QMARK 352
  97. # define RBRACE 353
  98. # define RBRACK 354
  99. # define REVASSIGN 355
  100. # define REVSWAP 356
  101. # define RPAREN 357
  102. # define SCANASGN 358
  103. # define SEMICOL 359
  104. # define SLASH 360
  105. # define SLASHASGN 361
  106. # define STAR 362
  107. # define STARASGN 363
  108. # define SWAP 364
  109. # define TILDE 365
  110. # define UNION 366
  111. # define UNIONASGN 367
  112.  
  113. # line 140 "expanded.g"
  114. #include "::h:gsupport.h"
  115. #include "tproto.h"
  116. #include "trans.h"
  117. #include "tsym.h"
  118. #include "tree.h"
  119. #include "::h:keyword.h"
  120. #undef YYSTYPE
  121. #define YYSTYPE nodeptr
  122. #define YYMAXDEPTH 500
  123. extern int fncargs[];
  124. int idflag;
  125. int id_cnt;
  126. int key_num;
  127.  
  128.  
  129.  
  130. #define yyclearin yychar = -1
  131. #define yyerrok yyerrflag = 0
  132. extern int yychar;
  133. extern int yyerrflag;
  134. #ifndef YYMAXDEPTH
  135. #define YYMAXDEPTH 150
  136. #endif
  137. #ifndef YYSTYPE
  138. #define YYSTYPE int
  139. #endif
  140. YYSTYPE yylval, yyval;
  141. # define YYERRCODE 256
  142.  
  143. # line 425 "expanded.g"
  144.  
  145. int yyexca[] ={
  146. -1, 0,
  147.     258, 2,
  148.     273, 2,
  149.     276, 2,
  150.     277, 2,
  151.     282, 2,
  152.     283, 2,
  153.     -2, 0,
  154. -1, 1,
  155.     0, -1,
  156.     -2, 0,
  157. -1, 20,
  158.     270, 40,
  159.     359, 42,
  160.     -2, 0,
  161. -1, 86,
  162.     264, 42,
  163.     268, 42,
  164.     269, 42,
  165.     281, 42,
  166.     288, 42,
  167.     289, 42,
  168.     292, 42,
  169.     294, 42,
  170.     295, 42,
  171.     296, 42,
  172.     297, 42,
  173.     298, 42,
  174.     299, 42,
  175.     300, 42,
  176.     301, 42,
  177.     302, 42,
  178.     303, 42,
  179.     304, 42,
  180.     305, 42,
  181.     306, 42,
  182.     307, 42,
  183.     308, 42,
  184.     309, 42,
  185.     314, 42,
  186.     315, 42,
  187.     316, 42,
  188.     318, 42,
  189.     321, 42,
  190.     325, 42,
  191.     329, 42,
  192.     331, 42,
  193.     332, 42,
  194.     333, 42,
  195.     334, 42,
  196.     337, 42,
  197.     339, 42,
  198.     340, 42,
  199.     341, 42,
  200.     344, 42,
  201.     345, 42,
  202.     346, 42,
  203.     347, 42,
  204.     349, 42,
  205.     351, 42,
  206.     353, 42,
  207.     354, 42,
  208.     355, 42,
  209.     356, 42,
  210.     357, 42,
  211.     358, 42,
  212.     359, 42,
  213.     361, 42,
  214.     363, 42,
  215.     364, 42,
  216.     367, 42,
  217.     -2, 0,
  218. -1, 87,
  219.     316, 42,
  220.     357, 42,
  221.     -2, 0,
  222. -1, 88,
  223.     353, 42,
  224.     359, 42,
  225.     -2, 0,
  226. -1, 89,
  227.     316, 42,
  228.     354, 42,
  229.     -2, 0,
  230. -1, 96,
  231.     264, 42,
  232.     268, 42,
  233.     269, 42,
  234.     281, 42,
  235.     288, 42,
  236.     289, 42,
  237.     292, 42,
  238.     294, 42,
  239.     295, 42,
  240.     296, 42,
  241.     297, 42,
  242.     298, 42,
  243.     299, 42,
  244.     300, 42,
  245.     301, 42,
  246.     302, 42,
  247.     303, 42,
  248.     304, 42,
  249.     305, 42,
  250.     306, 42,
  251.     307, 42,
  252.     308, 42,
  253.     309, 42,
  254.     314, 42,
  255.     315, 42,
  256.     316, 42,
  257.     318, 42,
  258.     321, 42,
  259.     325, 42,
  260.     329, 42,
  261.     331, 42,
  262.     332, 42,
  263.     333, 42,
  264.     334, 42,
  265.     337, 42,
  266.     339, 42,
  267.     340, 42,
  268.     341, 42,
  269.     344, 42,
  270.     345, 42,
  271.     346, 42,
  272.     347, 42,
  273.     349, 42,
  274.     351, 42,
  275.     353, 42,
  276.     354, 42,
  277.     355, 42,
  278.     356, 42,
  279.     357, 42,
  280.     358, 42,
  281.     359, 42,
  282.     361, 42,
  283.     363, 42,
  284.     364, 42,
  285.     367, 42,
  286.     -2, 0,
  287. -1, 97,
  288.     264, 42,
  289.     268, 42,
  290.     269, 42,
  291.     281, 42,
  292.     288, 42,
  293.     289, 42,
  294.     292, 42,
  295.     294, 42,
  296.     295, 42,
  297.     296, 42,
  298.     297, 42,
  299.     298, 42,
  300.     299, 42,
  301.     300, 42,
  302.     301, 42,
  303.     302, 42,
  304.     303, 42,
  305.     304, 42,
  306.     305, 42,
  307.     306, 42,
  308.     307, 42,
  309.     308, 42,
  310.     309, 42,
  311.     314, 42,
  312.     315, 42,
  313.     316, 42,
  314.     318, 42,
  315.     321, 42,
  316.     325, 42,
  317.     329, 42,
  318.     331, 42,
  319.     332, 42,
  320.     333, 42,
  321.     334, 42,
  322.     337, 42,
  323.     339, 42,
  324.     340, 42,
  325.     341, 42,
  326.     344, 42,
  327.     345, 42,
  328.     346, 42,
  329.     347, 42,
  330.     349, 42,
  331.     351, 42,
  332.     353, 42,
  333.     354, 42,
  334.     355, 42,
  335.     356, 42,
  336.     357, 42,
  337.     358, 42,
  338.     359, 42,
  339.     361, 42,
  340.     363, 42,
  341.     364, 42,
  342.     367, 42,
  343.     -2, 0,
  344. -1, 111,
  345.     270, 40,
  346.     359, 42,
  347.     -2, 0,
  348. -1, 117,
  349.     270, 40,
  350.     359, 42,
  351.     -2, 0,
  352. -1, 182,
  353.     316, 42,
  354.     354, 42,
  355.     -2, 0,
  356. -1, 183,
  357.     316, 42,
  358.     -2, 0,
  359. -1, 184,
  360.     316, 42,
  361.     357, 42,
  362.     -2, 0,
  363. -1, 312,
  364.     316, 42,
  365.     354, 42,
  366.     357, 42,
  367.     -2, 0,
  368. -1, 314,
  369.     353, 42,
  370.     359, 42,
  371.     -2, 0,
  372. -1, 337,
  373.     316, 42,
  374.     353, 42,
  375.     -2, 0,
  376.     };
  377. # define YYNPROD 204
  378. # define YYLAST 771
  379. int yyact[]={
  380.  
  381.     38,    94,   171,    84,    91,    92,    93,    86,   354,    99,
  382.     83,   355,   314,   360,   175,   102,    95,   228,    98,   361,
  383.    173,    20,   118,    85,    51,   117,   347,   325,   103,    96,
  384.    177,    97,   170,   357,   101,   100,   312,    50,   118,   337,
  385.    312,   331,   313,   119,   232,   312,   312,   110,   172,   363,
  386.    176,   343,   174,   118,    73,    56,    52,    61,   168,   318,
  387.    327,    53,   328,    90,    57,   118,    55,    69,    62,   169,
  388.     88,    89,    54,   358,    67,   352,   336,   338,   228,    68,
  389.     87,   311,    64,   330,   315,   333,    72,    65,   228,   118,
  390.     41,   317,    66,   321,    58,   107,    71,   118,   320,   348,
  391.    319,   316,   106,   362,    60,   108,    59,   335,   214,    63,
  392.     70,    38,    94,   329,    84,    91,    92,    93,    86,   334,
  393.     99,    83,   118,   326,    19,   118,   102,    95,   218,    98,
  394.    116,   231,   105,   185,    85,    51,   180,   183,   182,   103,
  395.     96,   217,    97,   322,   118,   101,   100,   184,    50,   118,
  396.    310,   118,   118,   179,   181,   109,   178,    28,   113,    24,
  397.     29,   114,    25,    32,     3,    73,    56,    52,    61,   115,
  398.    332,   353,    53,    27,    90,    57,    44,    55,    69,    62,
  399.     45,    88,    89,    54,   104,    67,    37,   307,    34,    82,
  400.     68,    87,   212,    64,    31,     2,    23,    72,    65,    17,
  401.     81,    80,    79,    66,    78,    58,    77,    71,   306,    13,
  402.     76,    75,    15,    14,    74,    60,    49,    59,    16,    11,
  403.     63,    70,    38,    94,    47,    84,    91,    92,    93,    86,
  404.     42,    99,    83,    40,   112,   323,    30,   102,    95,   111,
  405.     98,    33,    12,   273,   274,    85,    51,     4,   233,    18,
  406.    103,    96,    21,    97,    22,    26,   101,   100,    10,    50,
  407.      9,     8,    13,     7,     6,    15,    14,     5,     1,     0,
  408.      0,    16,    11,     0,     0,     0,    73,    56,    52,    61,
  409.     36,   230,   216,    53,     0,    90,    57,     0,    55,    69,
  410.     62,     0,    88,    89,    54,   234,    67,   236,     0,     0,
  411.    235,    68,    87,   229,    64,   239,   238,     0,    72,    65,
  412.      0,     0,     0,     0,    66,     0,    58,     0,    71,     0,
  413.      0,     0,     0,     0,     0,     0,    60,     0,    59,     0,
  414.      0,    63,    70,    94,     0,    84,    91,    92,    93,    86,
  415.      0,    99,    83,     0,     0,   289,   290,   102,    95,    46,
  416.     98,   291,   292,   293,   294,    85,    51,     0,     0,     0,
  417.    103,    96,     0,    97,   210,     0,   101,   100,     0,    50,
  418.    364,     0,     0,     0,     0,   303,     0,   309,   221,   222,
  419.    223,   224,   225,   226,   227,     0,    73,    56,    52,    61,
  420.      0,     0,     0,    53,   237,    90,    57,     0,    55,    69,
  421.     62,     0,    88,    89,    54,     0,    67,     0,     0,     0,
  422.      0,    68,    87,     0,    64,     0,     0,   324,    72,    65,
  423.    349,     0,     0,   340,    66,     0,    58,     0,    71,     0,
  424.      0,     0,    35,     0,     0,     0,    60,    39,    59,     0,
  425.    152,    63,    70,   121,     0,   151,   150,   135,   136,   137,
  426.    138,   139,   140,   141,   142,   143,   144,   145,   146,   147,
  427.    148,     0,     0,   305,   153,   134,     0,     0,     0,   124,
  428.      0,     0,   126,     0,     0,   166,   131,     0,     0,     0,
  429.    125,    48,   154,   155,   156,   157,   158,   159,     0,     0,
  430.    129,    43,   133,     0,   167,   160,   161,   162,   163,   164,
  431.    165,     0,   128,     0,     0,     0,   123,   122,     0,   149,
  432.      0,     0,   132,     0,   130,   120,     0,     0,   127,   211,
  433.    213,   215,   213,     0,   295,   296,   297,   298,   299,   219,
  434.    220,     0,   186,   187,   188,   189,   190,   191,   192,   193,
  435.    194,   195,   196,   197,   198,   199,   200,   201,   202,   203,
  436.    204,   205,   206,   207,   208,   209,     0,   240,   241,   242,
  437.    243,   244,   245,   246,   247,   248,   249,   250,   251,   252,
  438.    253,   254,   255,   256,   257,   258,   259,   260,   261,   262,
  439.    263,   264,   265,   266,   267,   268,   269,   270,   271,   272,
  440.      0,     0,     0,     0,     0,     0,     0,   341,   342,     0,
  441.    344,   345,   346,     0,     0,     0,     0,     0,     0,     0,
  442.      0,     0,     0,   350,     0,   304,   308,   213,     0,     0,
  443.      0,     0,     0,     0,   356,     0,     0,     0,     0,     0,
  444.      0,     0,     0,   359,     0,     0,     0,     0,     0,     0,
  445.      0,     0,   356,   365,   366,     0,   275,   276,   277,   278,
  446.    279,   280,   281,   282,   283,   284,   285,   286,   287,   288,
  447.      0,   300,   301,   302,     0,     0,     0,     0,     0,     0,
  448.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  449.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  450.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  451.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  452.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  453.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  454.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  455.      0,     0,     0,     0,     0,   339,     0,   215,     0,     0,
  456.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  457.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  458.    351 };
  459. int yypact[]={
  460.  
  461.    -92, -1000,   -11, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
  462.  -1000, -1000,  -235, -1000,  -100,  -102, -1000,   -64,   -96, -1000,
  463.    -34,  -127,  -214, -1000, -1000, -1000,  -221, -1000, -1000,  -210,
  464.   -104, -1000,  -289,  -117,  -140,  -334,  -254,  -309, -1000, -1000,
  465.    151, -1000,   152,  -259,  -318,  -310, -1000,  -157, -1000,  -189,
  466.     76,    76,    76,    76,    76,    76,    76,    76,    76,    76,
  467.     76,    76,    76,    76,    76,    76,    76,    76,    76,    76,
  468.     76,    76,    76,    76, -1000, -1000, -1000, -1000, -1000, -1000,
  469.  -1000, -1000, -1000,   -34, -1000, -1000,   -34,   -34,   -34,   -34,
  470.   -131, -1000, -1000, -1000, -1000, -1000,   -34,   -34,   -34,   -34,
  471.    -34,   -34,   -34,   -34,  -238, -1000,  -100,  -102,  -129,  -292,
  472.   -127,   -34,  -127,   -34, -1000, -1000, -1000,   -34,    76,    76,
  473.     76,    76,    76,    76,    76,    76,    76,    76,    76,    76,
  474.     76,    76,    76,    76,    76,    76,    76,    76,    76,    76,
  475.     76,    76,    76,    76,    76,    76,    76,    76,    76,    76,
  476.     76,    76,    76,    76,    76,    76,    76,    76,    76,    76,
  477.     76,    76,    76,    76,    76,    76,    76,    76,    76,    76,
  478.     76,    76,    76,    76,    76,    76,    76,    76,    76,    76,
  479.     76,    76,   -34,  -145,   -34,  -109, -1000, -1000, -1000, -1000,
  480.  -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
  481.  -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
  482.   -254, -1000,  -276, -1000,  -311,  -347,  -270, -1000, -1000, -1000,
  483.  -1000,  -167,  -197,  -222,  -168,  -170,  -175,  -254,  -116, -1000,
  484.  -1000, -1000,  -127,  -330,  -238,  -147,  -299,  -297, -1000,  -309,
  485.  -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
  486.  -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
  487.  -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000, -1000,
  488.  -1000, -1000, -1000,  -151, -1000,  -259,  -259,  -259,  -259,  -259,
  489.   -259,  -259,  -259,  -259,  -259,  -259,  -259,  -259,  -259,  -318,
  490.   -318,  -310,  -310,  -310,  -310, -1000, -1000, -1000, -1000, -1000,
  491.  -1000, -1000, -1000,  -271,  -313,  -230, -1000,  -277, -1000,  -280,
  492.  -1000, -1000,   -34, -1000,   -34, -1000,   -34,   -34,  -275,   -34,
  493.    -34,   -34, -1000,  -331,  -228, -1000, -1000, -1000, -1000,    76,
  494.  -1000, -1000,   -34, -1000, -1000, -1000, -1000,   -34, -1000, -1000,
  495.  -1000,  -254,  -194,  -256,  -254,  -254,  -254, -1000,  -321, -1000,
  496.   -281, -1000,   -34,  -340, -1000,  -212,  -266, -1000, -1000,  -254,
  497.  -1000,  -256,   -34,   -34, -1000,  -254,  -254 };
  498. int yypgo[]={
  499.  
  500.      0,   268,   195,   267,   264,   263,   261,   260,   258,   255,
  501.    173,   254,   196,   252,   184,   249,   248,   242,   241,   239,
  502.    188,   236,   235,   234,   280,   432,   186,   437,   233,    90,
  503.    230,   491,   176,   180,   349,   224,   481,   216,   214,   211,
  504.    210,   206,   204,   202,   201,   200,   189,   192,   108,   187,
  505.    171,     8,   170 };
  506. int yyr1[]={
  507.  
  508.      0,     1,     2,     2,     3,     3,     3,     3,     3,     8,
  509.      9,     9,    10,    10,    10,     7,    11,    11,    12,    12,
  510.     13,     6,    15,     4,    16,    16,     5,    21,    17,    22,
  511.     22,    22,    14,    14,    18,    18,    23,    23,    19,    19,
  512.     20,    20,    25,    25,    24,    24,    26,    26,    27,    27,
  513.     27,    27,    27,    27,    27,    27,    27,    27,    27,    27,
  514.     27,    27,    27,    27,    27,    27,    27,    27,    27,    27,
  515.     27,    27,    27,    27,    27,    27,    27,    27,    27,    27,
  516.     27,    28,    28,    28,    29,    29,    30,    30,    30,    30,
  517.     30,    30,    30,    30,    30,    30,    30,    30,    30,    30,
  518.     30,    31,    31,    31,    32,    32,    32,    32,    32,    33,
  519.     33,    33,    33,    33,    34,    34,    35,    35,    35,    35,
  520.     36,    36,    36,    36,    36,    36,    36,    36,    36,    36,
  521.     36,    36,    36,    36,    36,    36,    36,    36,    36,    36,
  522.     36,    36,    36,    36,    36,    37,    37,    37,    37,    37,
  523.     37,    37,    37,    37,    37,    37,    37,    37,    37,    37,
  524.     37,    37,    37,    37,    37,    37,    37,    37,    37,    43,
  525.     43,    44,    44,    45,    45,    46,    40,    40,    40,    40,
  526.     41,    41,    42,    50,    50,    51,    51,    47,    47,    49,
  527.     49,    38,    38,    38,    38,    39,    52,    52,    52,    48,
  528.     48,     1,     5,    24 };
  529. int yyr2[]={
  530.  
  531.      0,     5,     0,     4,     3,     3,     3,     3,     2,     4,
  532.      2,     6,     2,     2,     6,     5,     2,     7,     3,     3,
  533.      1,     7,     1,    13,     1,     3,    13,     1,    13,     1,
  534.      3,     7,     3,     7,     1,     9,     3,     3,     1,     7,
  535.      1,     7,     1,     2,     2,     7,     2,     7,     2,     7,
  536.      7,     7,     7,     7,     7,     7,     7,     7,     7,     7,
  537.      7,     7,     7,     7,     7,     7,     7,     7,     7,     7,
  538.      7,     7,     7,     7,     7,     7,     7,     7,     7,     7,
  539.      7,     2,     7,    11,     2,     7,     2,     7,     7,     7,
  540.      7,     7,     7,     7,     7,     7,     7,     7,     7,     7,
  541.      7,     2,     7,     7,     2,     7,     7,     7,     7,     2,
  542.      7,     7,     7,     7,     2,     7,     2,     7,     7,     7,
  543.      2,     5,     5,     5,     5,     5,     5,     5,     5,     5,
  544.      5,     5,     5,     5,     5,     5,     5,     5,     5,     5,
  545.      5,     5,     5,     5,     5,     2,     2,     2,     2,     2,
  546.      2,     2,     2,     2,     5,     3,     3,     5,     7,     7,
  547.      7,     9,     9,     7,     9,     9,     7,     5,     5,     5,
  548.      9,     5,     9,     5,     9,     5,     3,     5,     5,     9,
  549.      9,    13,    13,     2,     7,     7,     7,     2,     7,     3,
  550.      7,     3,     3,     3,     3,    13,     3,     3,     3,     2,
  551.      7,     6,     8,     2 };
  552. int yychk[]={
  553.  
  554.  -1000,    -1,    -2,   256,   258,    -3,    -4,    -5,    -6,    -7,
  555.     -8,   283,   -17,   273,   277,   276,   282,    -2,   -15,   359,
  556.    256,   -13,   -11,   -12,   259,   262,    -9,   -10,   259,   262,
  557.    -21,   258,   259,   -18,   -20,   -25,   -24,   -26,   256,   -27,
  558.    -28,   -29,   -30,   -31,   -32,   -33,   -34,   -35,   -36,   -37,
  559.    293,   280,   312,   317,   328,   322,   311,   320,   350,   362,
  560.    360,   313,   324,   365,   338,   343,   348,   330,   335,   323,
  561.    366,   352,   342,   310,   -38,   -39,   -40,   -41,   -42,   -43,
  562.    -44,   -45,   -46,   266,   259,   279,   263,   336,   326,   327,
  563.    319,   260,   261,   262,   257,   272,   285,   287,   274,   265,
  564.    291,   290,   271,   284,   -14,   259,   316,   316,   315,   259,
  565.    336,   -19,   -23,   275,   278,   286,   270,   359,   319,   352,
  566.    364,   292,   356,   355,   318,   329,   321,   367,   351,   339,
  567.    363,   325,   361,   341,   314,   296,   297,   298,   299,   300,
  568.    301,   302,   303,   304,   305,   306,   307,   308,   309,   358,
  569.    295,   294,   289,   312,   330,   331,   332,   333,   334,   335,
  570.    343,   344,   345,   346,   347,   348,   323,   342,   317,   328,
  571.    350,   320,   366,   338,   362,   324,   360,   340,   313,   310,
  572.    293,   311,   327,   326,   336,   322,   -36,   -36,   -36,   -36,
  573.    -36,   -36,   -36,   -36,   -36,   -36,   -36,   -36,   -36,   -36,
  574.    -36,   -36,   -36,   -36,   -36,   -36,   -36,   -36,   -36,   -36,
  575.    -24,   -25,   -47,   -25,   -48,   -25,   -47,   272,   259,   -25,
  576.    -25,   -24,   -24,   -24,   -24,   -24,   -24,   -24,   316,   -12,
  577.    -10,   260,   336,   -16,   -14,   -20,   -14,   -24,   -20,   -26,
  578.    -27,   -27,   -27,   -27,   -27,   -27,   -27,   -27,   -27,   -27,
  579.    -27,   -27,   -27,   -27,   -27,   -27,   -27,   -27,   -27,   -27,
  580.    -27,   -27,   -27,   -27,   -27,   -27,   -27,   -27,   -27,   -27,
  581.    -27,   -27,   -27,   -29,   -29,   -31,   -31,   -31,   -31,   -31,
  582.    -31,   -31,   -31,   -31,   -31,   -31,   -31,   -31,   -31,   -32,
  583.    -32,   -33,   -33,   -33,   -33,   -34,   -34,   -34,   -34,   -34,
  584.    -36,   -36,   -36,   -47,   -25,   -24,   353,   -49,   -25,   -47,
  585.    259,   357,   316,   353,   359,   354,   268,   288,   281,   268,
  586.    268,   268,   259,   -22,   -14,   357,   270,   359,   359,   264,
  587.    354,   354,   -52,   315,   349,   337,   353,   316,   357,   -25,
  588.    -48,   -24,   -24,   326,   -24,   -24,   -24,   357,   327,   -29,
  589.    -24,   -25,   269,   -50,   -51,   267,   -24,   354,   354,   -24,
  590.    353,   359,   315,   315,   -51,   -24,   -24 };
  591. int yydef[]={
  592.  
  593.     -2,    -2,     0,     2,     1,     3,     4,     5,     6,     7,
  594.      8,    22,     0,    20,     0,     0,    27,     0,     0,    34,
  595.     -2,     0,    15,    16,    18,    19,     9,    10,    12,    13,
  596.      0,   201,     0,    38,     0,     0,    43,    44,   203,    46,
  597.     48,    81,    84,    86,   101,   104,   109,   114,   116,   120,
  598.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  599.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  600.      0,     0,     0,     0,   145,   146,   147,   148,   149,   150,
  601.    151,   152,   153,     0,   155,   156,    -2,    -2,    -2,    -2,
  602.      0,   191,   192,   193,   194,   176,    -2,    -2,     0,     0,
  603.      0,     0,     0,     0,    21,    32,     0,     0,     0,     0,
  604.     24,    -2,     0,     0,    36,    37,   202,    -2,     0,     0,
  605.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  606.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  607.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  608.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  609.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  610.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  611.      0,     0,    -2,    -2,    -2,     0,   121,   122,   123,   124,
  612.    125,   126,   127,   128,   129,   130,   131,   132,   133,   134,
  613.    135,   136,   137,   138,   139,   140,   141,   142,   143,   144,
  614.    154,   157,     0,   187,     0,   199,     0,   167,   168,   177,
  615.    178,    43,     0,     0,   169,   171,   173,   175,     0,    17,
  616.     11,    14,    29,     0,    25,     0,     0,     0,    41,    45,
  617.     47,    49,    50,    51,    52,    53,    54,    55,    56,    57,
  618.     58,    59,    60,    61,    62,    63,    64,    65,    66,    67,
  619.     68,    69,    70,    71,    72,    73,    74,    75,    76,    77,
  620.     78,    79,    80,    82,    85,    87,    88,    89,    90,    91,
  621.     92,    93,    94,    95,    96,    97,    98,    99,   100,   102,
  622.    103,   105,   106,   107,   108,   110,   111,   112,   113,   115,
  623.    117,   118,   119,     0,   187,    43,   163,     0,   189,     0,
  624.    166,   158,    -2,   159,    -2,   160,     0,     0,     0,     0,
  625.      0,     0,    33,     0,    30,    23,    26,    35,    39,     0,
  626.    161,   162,     0,   196,   197,   198,   164,    -2,   165,   188,
  627.    200,   179,   180,     0,   170,   172,   174,    28,     0,    83,
  628.      0,   190,     0,     0,   183,     0,     0,    31,   195,   181,
  629.    182,     0,     0,     0,   184,   185,   186 };
  630. typedef struct { char *t_name; int t_val; } yytoktype;
  631. #ifndef YYDEBUG
  632. #    define YYDEBUG    0    /* don't allow debugging */
  633. #endif
  634.  
  635. #if YYDEBUG
  636.  
  637. yytoktype yytoks[] =
  638. {
  639.     "CSETLIT",    257,
  640.     "EOFX",    258,
  641.     "IDENT",    259,
  642.     "INTLIT",    260,
  643.     "REALLIT",    261,
  644.     "STRINGLIT",    262,
  645.     "BREAK",    263,
  646.     "BY",    264,
  647.     "CASE",    265,
  648.     "CREATE",    266,
  649.     "DEFAULT",    267,
  650.     "DO",    268,
  651.     "ELSE",    269,
  652.     "END",    270,
  653.     "EVERY",    271,
  654.     "FAIL",    272,
  655.     "GLOBAL",    273,
  656.     "IF",    274,
  657.     "INITIAL",    275,
  658.     "INVOCABLE",    276,
  659.     "LINK",    277,
  660.     "LOCAL",    278,
  661.     "NEXT",    279,
  662.     "NOT",    280,
  663.     "OF",    281,
  664.     "PROCEDURE",    282,
  665.     "RECORD",    283,
  666.     "REPEAT",    284,
  667.     "RETURN",    285,
  668.     "STATIC",    286,
  669.     "SUSPEND",    287,
  670.     "THEN",    288,
  671.     "TO",    289,
  672.     "UNTIL",    290,
  673.     "WHILE",    291,
  674.     "ASSIGN",    292,
  675.     "AT",    293,
  676.     "AUGACT",    294,
  677.     "AUGAND",    295,
  678.     "AUGEQ",    296,
  679.     "AUGEQV",    297,
  680.     "AUGGE",    298,
  681.     "AUGGT",    299,
  682.     "AUGLE",    300,
  683.     "AUGLT",    301,
  684.     "AUGNE",    302,
  685.     "AUGNEQV",    303,
  686.     "AUGSEQ",    304,
  687.     "AUGSGE",    305,
  688.     "AUGSGT",    306,
  689.     "AUGSLE",    307,
  690.     "AUGSLT",    308,
  691.     "AUGSNE",    309,
  692.     "BACKSLASH",    310,
  693.     "BANG",    311,
  694.     "BAR",    312,
  695.     "CARET",    313,
  696.     "CARETASGN",    314,
  697.     "COLON",    315,
  698.     "COMMA",    316,
  699.     "CONCAT",    317,
  700.     "CONCATASGN",    318,
  701.     "CONJUNC",    319,
  702.     "DIFF",    320,
  703.     "DIFFASGN",    321,
  704.     "DOT",    322,
  705.     "EQUIV",    323,
  706.     "INTER",    324,
  707.     "INTERASGN",    325,
  708.     "LBRACE",    326,
  709.     "LBRACK",    327,
  710.     "LCONCAT",    328,
  711.     "LCONCATASGN",    329,
  712.     "LEXEQ",    330,
  713.     "LEXGE",    331,
  714.     "LEXGT",    332,
  715.     "LEXLE",    333,
  716.     "LEXLT",    334,
  717.     "LEXNE",    335,
  718.     "LPAREN",    336,
  719.     "MCOLON",    337,
  720.     "MINUS",    338,
  721.     "MINUSASGN",    339,
  722.     "MOD",    340,
  723.     "MODASGN",    341,
  724.     "NOTEQUIV",    342,
  725.     "NUMEQ",    343,
  726.     "NUMGE",    344,
  727.     "NUMGT",    345,
  728.     "NUMLE",    346,
  729.     "NUMLT",    347,
  730.     "NUMNE",    348,
  731.     "PCOLON",    349,
  732.     "PLUS",    350,
  733.     "PLUSASGN",    351,
  734.     "QMARK",    352,
  735.     "RBRACE",    353,
  736.     "RBRACK",    354,
  737.     "REVASSIGN",    355,
  738.     "REVSWAP",    356,
  739.     "RPAREN",    357,
  740.     "SCANASGN",    358,
  741.     "SEMICOL",    359,
  742.     "SLASH",    360,
  743.     "SLASHASGN",    361,
  744.     "STAR",    362,
  745.     "STARASGN",    363,
  746.     "SWAP",    364,
  747.     "TILDE",    365,
  748.     "UNION",    366,
  749.     "UNIONASGN",    367,
  750.     "-unknown-",    -1    /* ends search */
  751. };
  752.  
  753. char * yyreds[] =
  754. {
  755.     "-no such reduction-",
  756.     "program : decls EOFX",
  757.     "decls : /* empty */",
  758.     "decls : decls decl",
  759.     "decl : record",
  760.     "decl : proc",
  761.     "decl : global",
  762.     "decl : link",
  763.     "decl : invocable",
  764.     "invocable : INVOCABLE invoclist",
  765.     "invoclist : invocop",
  766.     "invoclist : invoclist COMMA invocop",
  767.     "invocop : IDENT",
  768.     "invocop : STRINGLIT",
  769.     "invocop : STRINGLIT COLON INTLIT",
  770.     "link : LINK lnklist",
  771.     "lnklist : lnkfile",
  772.     "lnklist : lnklist COMMA lnkfile",
  773.     "lnkfile : IDENT",
  774.     "lnkfile : STRINGLIT",
  775.     "global : GLOBAL",
  776.     "global : GLOBAL idlist",
  777.     "record : RECORD",
  778.     "record : RECORD IDENT LPAREN fldlist RPAREN",
  779.     "fldlist : /* empty */",
  780.     "fldlist : idlist",
  781.     "proc : prochead SEMICOL locals initial procbody END",
  782.     "prochead : PROCEDURE",
  783.     "prochead : PROCEDURE IDENT LPAREN arglist RPAREN",
  784.     "arglist : /* empty */",
  785.     "arglist : idlist",
  786.     "arglist : idlist LBRACK RBRACK",
  787.     "idlist : IDENT",
  788.     "idlist : idlist COMMA IDENT",
  789.     "locals : /* empty */",
  790.     "locals : locals retention idlist SEMICOL",
  791.     "retention : LOCAL",
  792.     "retention : STATIC",
  793.     "initial : /* empty */",
  794.     "initial : INITIAL expr SEMICOL",
  795.     "procbody : /* empty */",
  796.     "procbody : nexpr SEMICOL procbody",
  797.     "nexpr : /* empty */",
  798.     "nexpr : expr",
  799.     "expr : expr1a",
  800.     "expr : expr CONJUNC expr1a",
  801.     "expr1a : expr1",
  802.     "expr1a : expr1a QMARK expr1",
  803.     "expr1 : expr2",
  804.     "expr1 : expr2 SWAP expr1",
  805.     "expr1 : expr2 ASSIGN expr1",
  806.     "expr1 : expr2 REVSWAP expr1",
  807.     "expr1 : expr2 REVASSIGN expr1",
  808.     "expr1 : expr2 CONCATASGN expr1",
  809.     "expr1 : expr2 LCONCATASGN expr1",
  810.     "expr1 : expr2 DIFFASGN expr1",
  811.     "expr1 : expr2 UNIONASGN expr1",
  812.     "expr1 : expr2 PLUSASGN expr1",
  813.     "expr1 : expr2 MINUSASGN expr1",
  814.     "expr1 : expr2 STARASGN expr1",
  815.     "expr1 : expr2 INTERASGN expr1",
  816.     "expr1 : expr2 SLASHASGN expr1",
  817.     "expr1 : expr2 MODASGN expr1",
  818.     "expr1 : expr2 CARETASGN expr1",
  819.     "expr1 : expr2 AUGEQ expr1",
  820.     "expr1 : expr2 AUGEQV expr1",
  821.     "expr1 : expr2 AUGGE expr1",
  822.     "expr1 : expr2 AUGGT expr1",
  823.     "expr1 : expr2 AUGLE expr1",
  824.     "expr1 : expr2 AUGLT expr1",
  825.     "expr1 : expr2 AUGNE expr1",
  826.     "expr1 : expr2 AUGNEQV expr1",
  827.     "expr1 : expr2 AUGSEQ expr1",
  828.     "expr1 : expr2 AUGSGE expr1",
  829.     "expr1 : expr2 AUGSGT expr1",
  830.     "expr1 : expr2 AUGSLE expr1",
  831.     "expr1 : expr2 AUGSLT expr1",
  832.     "expr1 : expr2 AUGSNE expr1",
  833.     "expr1 : expr2 SCANASGN expr1",
  834.     "expr1 : expr2 AUGAND expr1",
  835.     "expr1 : expr2 AUGACT expr1",
  836.     "expr2 : expr3",
  837.     "expr2 : expr2 TO expr3",
  838.     "expr2 : expr2 TO expr3 BY expr3",
  839.     "expr3 : expr4",
  840.     "expr3 : expr4 BAR expr3",
  841.     "expr4 : expr5",
  842.     "expr4 : expr4 LEXEQ expr5",
  843.     "expr4 : expr4 LEXGE expr5",
  844.     "expr4 : expr4 LEXGT expr5",
  845.     "expr4 : expr4 LEXLE expr5",
  846.     "expr4 : expr4 LEXLT expr5",
  847.     "expr4 : expr4 LEXNE expr5",
  848.     "expr4 : expr4 NUMEQ expr5",
  849.     "expr4 : expr4 NUMGE expr5",
  850.     "expr4 : expr4 NUMGT expr5",
  851.     "expr4 : expr4 NUMLE expr5",
  852.     "expr4 : expr4 NUMLT expr5",
  853.     "expr4 : expr4 NUMNE expr5",
  854.     "expr4 : expr4 EQUIV expr5",
  855.     "expr4 : expr4 NOTEQUIV expr5",
  856.     "expr5 : expr6",
  857.     "expr5 : expr5 CONCAT expr6",
  858.     "expr5 : expr5 LCONCAT expr6",
  859.     "expr6 : expr7",
  860.     "expr6 : expr6 PLUS expr7",
  861.     "expr6 : expr6 DIFF expr7",
  862.     "expr6 : expr6 UNION expr7",
  863.     "expr6 : expr6 MINUS expr7",
  864.     "expr7 : expr8",
  865.     "expr7 : expr7 STAR expr8",
  866.     "expr7 : expr7 INTER expr8",
  867.     "expr7 : expr7 SLASH expr8",
  868.     "expr7 : expr7 MOD expr8",
  869.     "expr8 : expr9",
  870.     "expr8 : expr9 CARET expr8",
  871.     "expr9 : expr10",
  872.     "expr9 : expr9 BACKSLASH expr10",
  873.     "expr9 : expr9 AT expr10",
  874.     "expr9 : expr9 BANG expr10",
  875.     "expr10 : expr11",
  876.     "expr10 : AT expr10",
  877.     "expr10 : NOT expr10",
  878.     "expr10 : BAR expr10",
  879.     "expr10 : CONCAT expr10",
  880.     "expr10 : LCONCAT expr10",
  881.     "expr10 : DOT expr10",
  882.     "expr10 : BANG expr10",
  883.     "expr10 : DIFF expr10",
  884.     "expr10 : PLUS expr10",
  885.     "expr10 : STAR expr10",
  886.     "expr10 : SLASH expr10",
  887.     "expr10 : CARET expr10",
  888.     "expr10 : INTER expr10",
  889.     "expr10 : TILDE expr10",
  890.     "expr10 : MINUS expr10",
  891.     "expr10 : NUMEQ expr10",
  892.     "expr10 : NUMNE expr10",
  893.     "expr10 : LEXEQ expr10",
  894.     "expr10 : LEXNE expr10",
  895.     "expr10 : EQUIV expr10",
  896.     "expr10 : UNION expr10",
  897.     "expr10 : QMARK expr10",
  898.     "expr10 : NOTEQUIV expr10",
  899.     "expr10 : BACKSLASH expr10",
  900.     "expr11 : literal",
  901.     "expr11 : section",
  902.     "expr11 : return",
  903.     "expr11 : if",
  904.     "expr11 : case",
  905.     "expr11 : while",
  906.     "expr11 : until",
  907.     "expr11 : every",
  908.     "expr11 : repeat",
  909.     "expr11 : CREATE expr",
  910.     "expr11 : IDENT",
  911.     "expr11 : NEXT",
  912.     "expr11 : BREAK nexpr",
  913.     "expr11 : LPAREN exprlist RPAREN",
  914.     "expr11 : LBRACE compound RBRACE",
  915.     "expr11 : LBRACK exprlist RBRACK",
  916.     "expr11 : expr11 LBRACK exprlist RBRACK",
  917.     "expr11 : expr11 LBRACK nexpr RBRACK",
  918.     "expr11 : expr11 LBRACE RBRACE",
  919.     "expr11 : expr11 LBRACE pdcolist RBRACE",
  920.     "expr11 : expr11 LPAREN exprlist RPAREN",
  921.     "expr11 : expr11 DOT IDENT",
  922.     "expr11 : CONJUNC FAIL",
  923.     "expr11 : CONJUNC IDENT",
  924.     "while : WHILE expr",
  925.     "while : WHILE expr DO expr",
  926.     "until : UNTIL expr",
  927.     "until : UNTIL expr DO expr",
  928.     "every : EVERY expr",
  929.     "every : EVERY expr DO expr",
  930.     "repeat : REPEAT expr",
  931.     "return : FAIL",
  932.     "return : RETURN nexpr",
  933.     "return : SUSPEND nexpr",
  934.     "return : SUSPEND expr DO expr",
  935.     "if : IF expr THEN expr",
  936.     "if : IF expr THEN expr ELSE expr",
  937.     "case : CASE expr OF LBRACE caselist RBRACE",
  938.     "caselist : cclause",
  939.     "caselist : caselist SEMICOL cclause",
  940.     "cclause : DEFAULT COLON expr",
  941.     "cclause : expr COLON expr",
  942.     "exprlist : nexpr",
  943.     "exprlist : exprlist COMMA nexpr",
  944.     "pdcolist : nexpr",
  945.     "pdcolist : pdcolist COMMA nexpr",
  946.     "literal : INTLIT",
  947.     "literal : REALLIT",
  948.     "literal : STRINGLIT",
  949.     "literal : CSETLIT",
  950.     "section : expr11 LBRACK expr sectop expr RBRACK",
  951.     "sectop : COLON",
  952.     "sectop : PCOLON",
  953.     "sectop : MCOLON",
  954.     "compound : nexpr",
  955.     "compound : nexpr SEMICOL compound",
  956.     "program : error decls EOFX",
  957.     "proc : prochead error procbody END",
  958.     "expr : error",
  959. };
  960. #endif
  961. #line 1 "/usr/lib/yaccpar"
  962. /*    @(#)yaccpar 1.10 89/04/04 SMI; from S5R3 1.10    */
  963.  
  964. /*
  965. ** Skeleton parser driver for yacc output
  966. */
  967.  
  968. /*
  969. ** yacc user known macros and defines
  970. */
  971. #define YYERROR        goto yyerrlab
  972. #define YYACCEPT    { free(yys); free(yyv); return(0); }
  973. #define YYABORT        { free(yys); free(yyv); return(1); }
  974. #define YYBACKUP( newtoken, newvalue )\
  975. {\
  976.     if ( yychar >= 0 || ( yyr2[ yytmp ] >> 1 ) != 1 )\
  977.     {\
  978.         tsyserr("parser: syntax error - cannot backup" );\
  979.         goto yyerrlab;\
  980.     }\
  981.     yychar = newtoken;\
  982.     yystate = *yyps;\
  983.     yylval = newvalue;\
  984.     goto yynewstate;\
  985. }
  986. #define YYRECOVERING()    (!!yyerrflag)
  987. #ifndef YYDEBUG
  988. #    define YYDEBUG    1    /* make debugging available */
  989. #endif
  990.  
  991. /*
  992. ** user known globals
  993. */
  994. int yydebug;            /* set to 1 to get debugging */
  995.  
  996. /*
  997. ** driver internal defines
  998. */
  999. #define YYFLAG        (-1000)
  1000.  
  1001. /*
  1002. ** static variables used by the parser
  1003. */
  1004. static YYSTYPE *yyv;            /* value stack */
  1005. static int *yys;            /* state stack */
  1006.  
  1007. static YYSTYPE *yypv;            /* top of value stack */
  1008. static int *yyps;            /* top of state stack */
  1009.  
  1010. static int yystate;            /* current state */
  1011. static int yytmp;            /* extra var (lasts between blocks) */
  1012.  
  1013. int yynerrs;            /* number of errors */
  1014.  
  1015. int yyerrflag;            /* error recovery flag */
  1016. int yychar;            /* current input token number */
  1017.  
  1018.  
  1019. /*
  1020. ** yyparse - return 0 if worked, 1 if syntax error not recovered from
  1021. */
  1022. int
  1023. yyparse()
  1024. {
  1025.     register YYSTYPE *yypvt;    /* top of value stack for $vars */
  1026.     unsigned yymaxdepth = YYMAXDEPTH;
  1027.  
  1028.     /*
  1029.     ** Initialize externals - yyparse may be called more than once
  1030.     */
  1031.     yyv = (YYSTYPE*)malloc(yymaxdepth*sizeof(YYSTYPE));
  1032.     yys = (int*)malloc(yymaxdepth*sizeof(int));
  1033.     if (!yyv || !yys)
  1034.     {
  1035.         tsyserr("parser: out of memory" );
  1036.         return(1);
  1037.     }
  1038.     yypv = &yyv[-1];
  1039.     yyps = &yys[-1];
  1040.     yystate = 0;
  1041.     yytmp = 0;
  1042.     yynerrs = 0;
  1043.     yyerrflag = 0;
  1044.     yychar = -1;
  1045.  
  1046.     goto yystack;
  1047.     {
  1048.         register YYSTYPE *yy_pv;    /* top of value stack */
  1049.         register int *yy_ps;        /* top of state stack */
  1050.         register int yy_state;        /* current state */
  1051.         register int  yy_n;        /* internal state number info */
  1052.  
  1053.         /*
  1054.         ** get globals into registers.
  1055.         ** branch to here only if YYBACKUP was called.
  1056.         */
  1057.     yynewstate:
  1058.         yy_pv = yypv;
  1059.         yy_ps = yyps;
  1060.         yy_state = yystate;
  1061.         goto yy_newstate;
  1062.  
  1063.         /*
  1064.         ** get globals into registers.
  1065.         ** either we just started, or we just finished a reduction
  1066.         */
  1067.     yystack:
  1068.         yy_pv = yypv;
  1069.         yy_ps = yyps;
  1070.         yy_state = yystate;
  1071.  
  1072.         /*
  1073.         ** top of for (;;) loop while no reductions done
  1074.         */
  1075.     yy_stack:
  1076.         /*
  1077.         ** put a state and value onto the stacks
  1078.         */
  1079. #if YYDEBUG
  1080.         /*
  1081.         ** if debugging, look up token value in list of value vs.
  1082.         ** name pairs.  0 and negative (-1) are special values.
  1083.         ** Note: linear search is used since time is not a real
  1084.         ** consideration while debugging.
  1085.         */
  1086.         if ( yydebug )
  1087.         {
  1088.             register int yy_i;
  1089.  
  1090.             (void)printf( "State %d, token ", yy_state );
  1091.             if ( yychar == 0 )
  1092.                 (void)printf( "end-of-file\n" );
  1093.             else if ( yychar < 0 )
  1094.                 (void)printf( "-none-\n" );
  1095.             else
  1096.             {
  1097.                 for ( yy_i = 0; yytoks[yy_i].t_val >= 0;
  1098.                     yy_i++ )
  1099.                 {
  1100.                     if ( yytoks[yy_i].t_val == yychar )
  1101.                         break;
  1102.                 }
  1103.                 (void)printf( "%s\n", yytoks[yy_i].t_name );
  1104.             }
  1105.         }
  1106. #endif
  1107.         if ( ++yy_ps >= &yys[ yymaxdepth ] )    /* room on stack? */
  1108.         {
  1109.             /*
  1110.             ** reallocate and recover.  Note that pointers
  1111.             ** have to be reset, or bad things will happen
  1112.             */
  1113.             int yyps_index = (yy_ps - yys);
  1114.             int yypv_index = (yy_pv - yyv);
  1115.             int yypvt_index = (yypvt - yyv);
  1116.             yymaxdepth += YYMAXDEPTH;
  1117.             yyv = (YYSTYPE*)realloc((char*)yyv,
  1118.                 yymaxdepth * sizeof(YYSTYPE));
  1119.             yys = (int*)realloc((char*)yys,
  1120.                 yymaxdepth * sizeof(int));
  1121.             if (!yyv || !yys)
  1122.             {
  1123.                 tsyserr("parse stack overflow" );
  1124.                 return(1);
  1125.             }
  1126.             yy_ps = yys + yyps_index;
  1127.             yy_pv = yyv + yypv_index;
  1128.             yypvt = yyv + yypvt_index;
  1129.         }
  1130.         *yy_ps = yy_state;
  1131.         *++yy_pv = yyval;
  1132.  
  1133.         /*
  1134.         ** we have a new state - find out what to do
  1135.         */
  1136.     yy_newstate:
  1137.         if ( ( yy_n = yypact[ yy_state ] ) <= YYFLAG )
  1138.             goto yydefault;        /* simple state */
  1139. #if YYDEBUG
  1140.         /*
  1141.         ** if debugging, need to mark whether new token grabbed
  1142.         */
  1143.         yytmp = yychar < 0;
  1144. #endif
  1145.         if ( ( yychar < 0 ) && ( ( yychar = yylex() ) < 0 ) )
  1146.             yychar = 0;        /* reached EOF */
  1147. #if YYDEBUG
  1148.         if ( yydebug && yytmp )
  1149.         {
  1150.             register int yy_i;
  1151.  
  1152.             (void)printf( "Received token " );
  1153.             if ( yychar == 0 )
  1154.                 (void)printf( "end-of-file\n" );
  1155.             else if ( yychar < 0 )
  1156.                 (void)printf( "-none-\n" );
  1157.             else
  1158.             {
  1159.                 for ( yy_i = 0; yytoks[yy_i].t_val >= 0;
  1160.                     yy_i++ )
  1161.                 {
  1162.                     if ( yytoks[yy_i].t_val == yychar )
  1163.                         break;
  1164.                 }
  1165.                 (void)printf( "%s\n", yytoks[yy_i].t_name );
  1166.             }
  1167.         }
  1168. #endif
  1169.         if ( ( ( yy_n += yychar ) < 0 ) || ( yy_n >= YYLAST ) )
  1170.             goto yydefault;
  1171.         if ( yychk[ yy_n = yyact[ yy_n ] ] == yychar )    /*valid shift*/
  1172.         {
  1173.             yychar = -1;
  1174.             yyval = yylval;
  1175.             yy_state = yy_n;
  1176.             if ( yyerrflag > 0 )
  1177.                 yyerrflag--;
  1178.             goto yy_stack;
  1179.         }
  1180.  
  1181.     yydefault:
  1182.         if ( ( yy_n = yydef[ yy_state ] ) == -2 )
  1183.         {
  1184. #if YYDEBUG
  1185.             yytmp = yychar < 0;
  1186. #endif
  1187.             if ( ( yychar < 0 ) && ( ( yychar = yylex() ) < 0 ) )
  1188.                 yychar = 0;        /* reached EOF */
  1189. #if YYDEBUG
  1190.             if ( yydebug && yytmp )
  1191.             {
  1192.                 register int yy_i;
  1193.  
  1194.                 (void)printf( "Received token " );
  1195.                 if ( yychar == 0 )
  1196.                     (void)printf( "end-of-file\n" );
  1197.                 else if ( yychar < 0 )
  1198.                     (void)printf( "-none-\n" );
  1199.                 else
  1200.                 {
  1201.                     for ( yy_i = 0;
  1202.                         yytoks[yy_i].t_val >= 0;
  1203.                         yy_i++ )
  1204.                     {
  1205.                         if ( yytoks[yy_i].t_val
  1206.                             == yychar )
  1207.                         {
  1208.                             break;
  1209.                         }
  1210.                     }
  1211.                     (void)printf( "%s\n", yytoks[yy_i].t_name );
  1212.                 }
  1213.             }
  1214. #endif
  1215.             /*
  1216.             ** look through exception table
  1217.             */
  1218.             {
  1219.                 register int *yyxi = yyexca;
  1220.  
  1221.                 while ( ( *yyxi != -1 ) ||
  1222.                     ( yyxi[1] != yy_state ) )
  1223.                 {
  1224.                     yyxi += 2;
  1225.                 }
  1226.                 while ( ( *(yyxi += 2) >= 0 ) &&
  1227.                     ( *yyxi != yychar ) )
  1228.                     ;
  1229.                 if ( ( yy_n = yyxi[1] ) < 0 )
  1230.                     YYACCEPT;
  1231.             }
  1232.         }
  1233.  
  1234.         /*
  1235.         ** check for syntax error
  1236.         */
  1237.         if ( yy_n == 0 )    /* have an error */
  1238.         {
  1239.             /* no worry about speed here! */
  1240.             switch ( yyerrflag )
  1241.             {
  1242.             case 0:        /* new error */
  1243.                 yyerror(yychar, yylval, yy_state );
  1244.                 goto skip_init;
  1245.             yyerrlab:
  1246.                 /*
  1247.                 ** get globals into registers.
  1248.                 ** we have a user generated syntax type error
  1249.                 */
  1250.                 yy_pv = yypv;
  1251.                 yy_ps = yyps;
  1252.                 yy_state = yystate;
  1253.                 yynerrs++;
  1254.             skip_init:
  1255.             case 1:
  1256.             case 2:        /* incompletely recovered error */
  1257.                     /* try again... */
  1258.                 yyerrflag = 3;
  1259.                 /*
  1260.                 ** find state where "error" is a legal
  1261.                 ** shift action
  1262.                 */
  1263.                 while ( yy_ps >= yys )
  1264.                 {
  1265.                     yy_n = yypact[ *yy_ps ] + YYERRCODE;
  1266.                     if ( yy_n >= 0 && yy_n < YYLAST &&
  1267.                         yychk[yyact[yy_n]] == YYERRCODE)                    {
  1268.                         /*
  1269.                         ** simulate shift of "error"
  1270.                         */
  1271.                         yy_state = yyact[ yy_n ];
  1272.                         goto yy_stack;
  1273.                     }
  1274.                     /*
  1275.                     ** current state has no shift on
  1276.                     ** "error", pop stack
  1277.                     */
  1278. #if YYDEBUG
  1279. #    define _POP_ "Error recovery pops state %d, uncovers state %d\n"
  1280.                     if ( yydebug )
  1281.                         (void)printf( _POP_, *yy_ps,
  1282.                             yy_ps[-1] );
  1283. #    undef _POP_
  1284. #endif
  1285.                     yy_ps--;
  1286.                     yy_pv--;
  1287.                 }
  1288.                 /*
  1289.                 ** there is no state on stack with "error" as
  1290.                 ** a valid shift.  give up.
  1291.                 */
  1292.                 YYABORT;
  1293.             case 3:        /* no shift yet; eat a token */
  1294. #if YYDEBUG
  1295.                 /*
  1296.                 ** if debugging, look up token in list of
  1297.                 ** pairs.  0 and negative shouldn't occur,
  1298.                 ** but since timing doesn't matter when
  1299.                 ** debugging, it doesn't hurt to leave the
  1300.                 ** tests here.
  1301.                 */
  1302.                 if ( yydebug )
  1303.                 {
  1304.                     register int yy_i;
  1305.  
  1306.                     (void)printf( "Error recovery discards " );
  1307.                     if ( yychar == 0 )
  1308.                         (void)printf( "token end-of-file\n" );
  1309.                     else if ( yychar < 0 )
  1310.                         (void)printf( "token -none-\n" );
  1311.                     else
  1312.                     {
  1313.                         for ( yy_i = 0;
  1314.                             yytoks[yy_i].t_val >= 0;
  1315.                             yy_i++ )
  1316.                         {
  1317.                             if ( yytoks[yy_i].t_val
  1318.                                 == yychar )
  1319.                             {
  1320.                                 break;
  1321.                             }
  1322.                         }
  1323.                         (void)printf( "token %s\n",
  1324.                             yytoks[yy_i].t_name );
  1325.                     }
  1326.                 }
  1327. #endif
  1328.                 if ( yychar == 0 )    /* reached EOF. quit */
  1329.                     YYABORT;
  1330.                 yychar = -1;
  1331.                 goto yy_newstate;
  1332.             }
  1333.         }/* end if ( yy_n == 0 ) */
  1334.         /*
  1335.         ** reduction by production yy_n
  1336.         ** put stack tops, etc. so things right after switch
  1337.         */
  1338. #if YYDEBUG
  1339.         /*
  1340.         ** if debugging, print the string that is the user's
  1341.         ** specification of the reduction which is just about
  1342.         ** to be done.
  1343.         */
  1344.         if ( yydebug )
  1345.             (void)printf( "Reduce by (%d) \"%s\"\n",
  1346.                 yy_n, yyreds[ yy_n ] );
  1347. #endif
  1348.         yytmp = yy_n;            /* value to switch over */
  1349.         yypvt = yy_pv;            /* $vars top of value stack */
  1350.         /*
  1351.         ** Look in goto table for next state
  1352.         ** Sorry about using yy_state here as temporary
  1353.         ** register variable, but why not, if it works...
  1354.         ** If yyr2[ yy_n ] doesn't have the low order bit
  1355.         ** set, then there is no action to be done for
  1356.         ** this reduction.  So, no saving & unsaving of
  1357.         ** registers done.  The only difference between the
  1358.         ** code just after the if and the body of the if is
  1359.         ** the goto yy_stack in the body.  This way the test
  1360.         ** can be made before the choice of what to do is needed.
  1361.         */
  1362.         {
  1363.             /* length of production doubled with extra bit */
  1364.             register int yy_len = yyr2[ yy_n ];
  1365.  
  1366.             if ( !( yy_len & 01 ) )
  1367.             {
  1368.                 yy_len >>= 1;
  1369.                 yyval = ( yy_pv -= yy_len )[1];    /* $$ = $1 */
  1370.                 yy_state = yypgo[ yy_n = yyr1[ yy_n ] ] +
  1371.                     *( yy_ps -= yy_len ) + 1;
  1372.                 if ( yy_state >= YYLAST ||
  1373.                     yychk[ yy_state =
  1374.                     yyact[ yy_state ] ] != -yy_n )
  1375.                 {
  1376.                     yy_state = yyact[ yypgo[ yy_n ] ];
  1377.                 }
  1378.                 goto yy_stack;
  1379.             }
  1380.             yy_len >>= 1;
  1381.             yyval = ( yy_pv -= yy_len )[1];    /* $$ = $1 */
  1382.             yy_state = yypgo[ yy_n = yyr1[ yy_n ] ] +
  1383.                 *( yy_ps -= yy_len ) + 1;
  1384.             if ( yy_state >= YYLAST ||
  1385.                 yychk[ yy_state = yyact[ yy_state ] ] != -yy_n )
  1386.             {
  1387.                 yy_state = yyact[ yypgo[ yy_n ] ];
  1388.             }
  1389.         }
  1390.                     /* save until reenter driver code */
  1391.         yystate = yy_state;
  1392.         yyps = yy_ps;
  1393.         yypv = yy_pv;
  1394.     }
  1395.     /*
  1396.     ** code supplied by user is placed in this switch
  1397.     */
  1398.     switch( yytmp )
  1399.     {
  1400.         
  1401. case 1:
  1402. # line 160 "expanded.g"
  1403. {gout(globfile);} break;
  1404. case 4:
  1405. # line 165 "expanded.g"
  1406. {if (!nocode) rout(globfile, Str0(yypvt[-0])); nocode = 0; loc_init();} break;
  1407. case 5:
  1408. # line 166 "expanded.g"
  1409. {if (!nocode) codegen(yypvt[-0]); nocode = 0; loc_init();} break;
  1410. case 6:
  1411. # line 167 "expanded.g"
  1412. {;} break;
  1413. case 7:
  1414. # line 168 "expanded.g"
  1415. {;} break;
  1416. case 15:
  1417. # line 181 "expanded.g"
  1418. {;} break;
  1419. case 17:
  1420. # line 184 "expanded.g"
  1421. {;} break;
  1422. case 18:
  1423. # line 186 "expanded.g"
  1424. {addlfile(Str0(yypvt[-0]));} break;
  1425. case 19:
  1426. # line 187 "expanded.g"
  1427. {addlfile(Str0(yypvt[-0]));} break;
  1428. case 20:
  1429. # line 189 "expanded.g"
  1430. {idflag = F_Global;} break;
  1431. case 21:
  1432. # line 189 "expanded.g"
  1433. {;} break;
  1434. case 22:
  1435. # line 191 "expanded.g"
  1436. {idflag = F_Argument;} break;
  1437. case 23:
  1438. # line 191 "expanded.g"
  1439. {
  1440.         install(Str0(yypvt[-3]),F_Record|F_Global,id_cnt); yyval = yypvt[-3];
  1441.         } break;
  1442. case 24:
  1443. # line 195 "expanded.g"
  1444. {id_cnt = 0;} break;
  1445. case 25:
  1446. # line 196 "expanded.g"
  1447. {;} break;
  1448. case 26:
  1449. # line 198 "expanded.g"
  1450. {
  1451.         yyval = tree6(N_Proc,yypvt[-5],yypvt[-5],yypvt[-2],yypvt[-1],yypvt[-0]);
  1452.         } break;
  1453. case 27:
  1454. # line 202 "expanded.g"
  1455. {idflag = F_Argument;} break;
  1456. case 28:
  1457. # line 202 "expanded.g"
  1458. {
  1459.         yyval = yypvt[-3]; install(Str0(yypvt[-3]),F_Proc|F_Global,id_cnt);
  1460.         } break;
  1461. case 29:
  1462. # line 206 "expanded.g"
  1463. {id_cnt = 0;} break;
  1464. case 30:
  1465. # line 207 "expanded.g"
  1466. {;} break;
  1467. case 31:
  1468. # line 208 "expanded.g"
  1469. {id_cnt = -id_cnt;} break;
  1470. case 32:
  1471. # line 211 "expanded.g"
  1472. {
  1473.         install(Str0(yypvt[-0]),idflag,0); id_cnt = 1;
  1474.         } break;
  1475. case 33:
  1476. # line 214 "expanded.g"
  1477. {
  1478.         install(Str0(yypvt[-0]),idflag,0); ++id_cnt;
  1479.         } break;
  1480. case 34:
  1481. # line 218 "expanded.g"
  1482. {;} break;
  1483. case 35:
  1484. # line 219 "expanded.g"
  1485. {;} break;
  1486. case 36:
  1487. # line 221 "expanded.g"
  1488. {idflag = F_Dynamic;} break;
  1489. case 37:
  1490. # line 222 "expanded.g"
  1491. {idflag = F_Static;} break;
  1492. case 38:
  1493. # line 224 "expanded.g"
  1494. {yyval = tree1(N_Empty);} break;
  1495. case 39:
  1496. # line 225 "expanded.g"
  1497. {yyval = yypvt[-1];} break;
  1498. case 40:
  1499. # line 227 "expanded.g"
  1500. {yyval = tree1(N_Empty);} break;
  1501. case 41:
  1502. # line 228 "expanded.g"
  1503. {yyval = tree4(N_Slist,yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1504. case 42:
  1505. # line 230 "expanded.g"
  1506. {yyval = tree1(N_Empty);} break;
  1507. case 45:
  1508. # line 234 "expanded.g"
  1509. {yyval = tree5(N_Conj,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1510. case 47:
  1511. # line 237 "expanded.g"
  1512. {yyval = tree5(N_Scan,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1513. case 49:
  1514. # line 240 "expanded.g"
  1515. case 50:
  1516. # line 241 "expanded.g"
  1517. case 51:
  1518. # line 242 "expanded.g"
  1519. case 52:
  1520. # line 243 "expanded.g"
  1521. {yyval = tree5(N_Binop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1522. case 53:
  1523. # line 244 "expanded.g"
  1524. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1525. case 54:
  1526. # line 245 "expanded.g"
  1527. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1528. case 55:
  1529. # line 246 "expanded.g"
  1530. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1531. case 56:
  1532. # line 247 "expanded.g"
  1533. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1534. case 57:
  1535. # line 248 "expanded.g"
  1536. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1537. case 58:
  1538. # line 249 "expanded.g"
  1539. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1540. case 59:
  1541. # line 250 "expanded.g"
  1542. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1543. case 60:
  1544. # line 251 "expanded.g"
  1545. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1546. case 61:
  1547. # line 252 "expanded.g"
  1548. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1549. case 62:
  1550. # line 253 "expanded.g"
  1551. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1552. case 63:
  1553. # line 254 "expanded.g"
  1554. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1555. case 64:
  1556. # line 255 "expanded.g"
  1557. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1558. case 65:
  1559. # line 256 "expanded.g"
  1560. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1561. case 66:
  1562. # line 257 "expanded.g"
  1563. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1564. case 67:
  1565. # line 258 "expanded.g"
  1566. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1567. case 68:
  1568. # line 259 "expanded.g"
  1569. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1570. case 69:
  1571. # line 260 "expanded.g"
  1572. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1573. case 70:
  1574. # line 261 "expanded.g"
  1575. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1576. case 71:
  1577. # line 262 "expanded.g"
  1578. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1579. case 72:
  1580. # line 263 "expanded.g"
  1581. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1582. case 73:
  1583. # line 264 "expanded.g"
  1584. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1585. case 74:
  1586. # line 265 "expanded.g"
  1587. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1588. case 75:
  1589. # line 266 "expanded.g"
  1590. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1591. case 76:
  1592. # line 267 "expanded.g"
  1593. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1594. case 77:
  1595. # line 268 "expanded.g"
  1596. {yyval = tree5(N_Augop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1597. case 78:
  1598. # line 269 "expanded.g"
  1599. {yyval = tree5(N_Scan,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1600. case 79:
  1601. # line 270 "expanded.g"
  1602. {yyval = tree5(N_Conj,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1603. case 80:
  1604. # line 271 "expanded.g"
  1605. {yyval = tree5(N_Activat,yypvt[-1],yypvt[-1],yypvt[-0],yypvt[-2]);} break;
  1606. case 82:
  1607. # line 274 "expanded.g"
  1608. {yyval = tree4(N_To,yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1609. case 83:
  1610. # line 275 "expanded.g"
  1611. {yyval = tree5(N_ToBy,yypvt[-3],yypvt[-4],yypvt[-2],yypvt[-0]);} break;
  1612. case 85:
  1613. # line 278 "expanded.g"
  1614. {yyval = tree4(N_Alt,yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1615. case 87:
  1616. # line 281 "expanded.g"
  1617. case 88:
  1618. # line 282 "expanded.g"
  1619. case 89:
  1620. # line 283 "expanded.g"
  1621. case 90:
  1622. # line 284 "expanded.g"
  1623. case 91:
  1624. # line 285 "expanded.g"
  1625. case 92:
  1626. # line 286 "expanded.g"
  1627. case 93:
  1628. # line 287 "expanded.g"
  1629. case 94:
  1630. # line 288 "expanded.g"
  1631. case 95:
  1632. # line 289 "expanded.g"
  1633. case 96:
  1634. # line 290 "expanded.g"
  1635. case 97:
  1636. # line 291 "expanded.g"
  1637. case 98:
  1638. # line 292 "expanded.g"
  1639. case 99:
  1640. # line 293 "expanded.g"
  1641. case 100:
  1642. # line 294 "expanded.g"
  1643. case 102:
  1644. # line 297 "expanded.g"
  1645. case 103:
  1646. # line 298 "expanded.g"
  1647. case 105:
  1648. # line 301 "expanded.g"
  1649. case 106:
  1650. # line 302 "expanded.g"
  1651. case 107:
  1652. # line 303 "expanded.g"
  1653. case 108:
  1654. # line 304 "expanded.g"
  1655. case 110:
  1656. # line 307 "expanded.g"
  1657. case 111:
  1658. # line 308 "expanded.g"
  1659. case 112:
  1660. # line 309 "expanded.g"
  1661. case 113:
  1662. # line 310 "expanded.g"
  1663. case 115:
  1664. # line 313 "expanded.g"
  1665. {yyval = tree5(N_Binop,yypvt[-1],yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1666. case 117:
  1667. # line 316 "expanded.g"
  1668. {yyval = tree4(N_Limit,yypvt[-2],yypvt[-2],yypvt[-0]);} break;
  1669. case 118:
  1670. # line 317 "expanded.g"
  1671. {yyval = tree5(N_Activat,yypvt[-1],yypvt[-1],yypvt[-0],yypvt[-2]);} break;
  1672. case 119:
  1673. # line 318 "expanded.g"
  1674. {yyval = tree4(N_Apply,yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1675. case 121:
  1676. # line 321 "expanded.g"
  1677. {yyval = tree5(N_Activat,yypvt[-1],yypvt[-1],yypvt[-0],tree1(N_Empty));} break;
  1678. case 122:
  1679. # line 322 "expanded.g"
  1680. {yyval = tree3(N_Not,yypvt[-0],yypvt[-0]);} break;
  1681. case 123:
  1682. # line 323 "expanded.g"
  1683. {yyval = tree3(N_Bar,yypvt[-0],yypvt[-0]);} break;
  1684. case 124:
  1685. # line 324 "expanded.g"
  1686. {yyval = tree3(N_Bar,yypvt[-0],yypvt[-0]);} break;
  1687. case 125:
  1688. # line 325 "expanded.g"
  1689. {yyval = tree3(N_Bar,yypvt[-0],yypvt[-0]);} break;
  1690. case 126:
  1691. # line 326 "expanded.g"
  1692. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1693. case 127:
  1694. # line 327 "expanded.g"
  1695. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1696. case 128:
  1697. # line 328 "expanded.g"
  1698. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1699. case 129:
  1700. # line 329 "expanded.g"
  1701. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1702. case 130:
  1703. # line 330 "expanded.g"
  1704. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1705. case 131:
  1706. # line 331 "expanded.g"
  1707. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1708. case 132:
  1709. # line 332 "expanded.g"
  1710. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1711. case 133:
  1712. # line 333 "expanded.g"
  1713. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1714. case 134:
  1715. # line 334 "expanded.g"
  1716. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1717. case 135:
  1718. # line 335 "expanded.g"
  1719. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1720. case 136:
  1721. # line 336 "expanded.g"
  1722. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1723. case 137:
  1724. # line 337 "expanded.g"
  1725. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1726. case 138:
  1727. # line 338 "expanded.g"
  1728. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1729. case 139:
  1730. # line 339 "expanded.g"
  1731. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1732. case 140:
  1733. # line 340 "expanded.g"
  1734. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1735. case 141:
  1736. # line 341 "expanded.g"
  1737. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1738. case 142:
  1739. # line 342 "expanded.g"
  1740. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1741. case 143:
  1742. # line 343 "expanded.g"
  1743. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1744. case 144:
  1745. # line 344 "expanded.g"
  1746. {yyval = tree4(N_Unop,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1747. case 154:
  1748. # line 354 "expanded.g"
  1749. {yyval = tree3(N_Create,yypvt[-1],yypvt[-0]);} break;
  1750. case 155:
  1751. # line 355 "expanded.g"
  1752. {Val0(yypvt[-0]) = putloc(Str0(yypvt[-0]),0);} break;
  1753. case 156:
  1754. # line 356 "expanded.g"
  1755. {yyval = tree2(N_Next,yypvt[-0]);} break;
  1756. case 157:
  1757. # line 357 "expanded.g"
  1758. {yyval = tree3(N_Break,yypvt[-1],yypvt[-0]);} break;
  1759. case 158:
  1760. # line 358 "expanded.g"
  1761. {if ((yypvt[-1])->n_type == N_Elist) yyval = tree4(N_Invok,yypvt[-2],tree1(N_Empty),yypvt[-1]); else yyval = yypvt[-1];} break;
  1762. case 159:
  1763. # line 359 "expanded.g"
  1764. {yyval = yypvt[-1];} break;
  1765. case 160:
  1766. # line 360 "expanded.g"
  1767. {yyval = tree3(N_List,yypvt[-2],yypvt[-1]);} break;
  1768. case 161:
  1769. # line 361 "expanded.g"
  1770. {yyval = buildarray(yypvt[-3],yypvt[-2],yypvt[-1],yypvt[-0]);} break;
  1771. case 162:
  1772. # line 362 "expanded.g"
  1773. {yyval = tree5(N_Binop,yypvt[-2],yypvt[-2],yypvt[-3],yypvt[-1]);} break;
  1774. case 163:
  1775. # line 363 "expanded.g"
  1776. {yyval = tree4(N_Invok,yypvt[-1],yypvt[-2], tree3(N_List,yypvt[-1],tree1(N_Empty)));} break;
  1777. case 164:
  1778. # line 364 "expanded.g"
  1779. {yyval = tree4(N_Invok,yypvt[-2],yypvt[-3],tree3(N_List,yypvt[-2],yypvt[-1]));} break;
  1780. case 165:
  1781. # line 366 "expanded.g"
  1782. {yyval = tree4(N_Invok,yypvt[-2],yypvt[-3],yypvt[-1]);} break;
  1783. case 166:
  1784. # line 367 "expanded.g"
  1785. {yyval = tree4(N_Field,yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1786. case 167:
  1787. # line 368 "expanded.g"
  1788. {yyval = int_leaf(N_Key,yypvt[-1],K_FAIL);} break;
  1789. case 168:
  1790. # line 369 "expanded.g"
  1791. {if ((key_num = klookup(Str0(yypvt[-0]))) == 0) tfatal("invalid keyword",Str0(yypvt[-0])); yyval = int_leaf(N_Key,yypvt[-1],key_num);} break;
  1792. case 169:
  1793. # line 371 "expanded.g"
  1794. {yyval = tree5(N_Loop,yypvt[-1],yypvt[-1],yypvt[-0],tree1(N_Empty));} break;
  1795. case 170:
  1796. # line 372 "expanded.g"
  1797. {yyval = tree5(N_Loop,yypvt[-3],yypvt[-3],yypvt[-2],yypvt[-0]);} break;
  1798. case 171:
  1799. # line 374 "expanded.g"
  1800. {yyval = tree5(N_Loop,yypvt[-1],yypvt[-1],yypvt[-0],tree1(N_Empty));} break;
  1801. case 172:
  1802. # line 375 "expanded.g"
  1803. {yyval = tree5(N_Loop,yypvt[-3],yypvt[-3],yypvt[-2],yypvt[-0]);} break;
  1804. case 173:
  1805. # line 377 "expanded.g"
  1806. {yyval = tree5(N_Loop,yypvt[-1],yypvt[-1],yypvt[-0],tree1(N_Empty));} break;
  1807. case 174:
  1808. # line 378 "expanded.g"
  1809. {yyval = tree5(N_Loop,yypvt[-3],yypvt[-3],yypvt[-2],yypvt[-0]);} break;
  1810. case 175:
  1811. # line 380 "expanded.g"
  1812. {yyval = tree5(N_Loop,yypvt[-1],yypvt[-1],yypvt[-0],tree1(N_Empty));} break;
  1813. case 176:
  1814. # line 382 "expanded.g"
  1815. {yyval = tree4(N_Ret,yypvt[-0],yypvt[-0],tree1(N_Empty));} break;
  1816. case 177:
  1817. # line 383 "expanded.g"
  1818. {yyval = tree4(N_Ret,yypvt[-1],yypvt[-1],yypvt[-0]);} break;
  1819. case 178:
  1820. # line 384 "expanded.g"
  1821. {yyval = tree5(N_Loop,yypvt[-1],yypvt[-1],yypvt[-0],tree1(N_Empty));} break;
  1822. case 179:
  1823. # line 385 "expanded.g"
  1824. {yyval = tree5(N_Loop,yypvt[-3],yypvt[-3],yypvt[-2],yypvt[-0]);} break;
  1825. case 180:
  1826. # line 387 "expanded.g"
  1827. {yyval = tree5(N_If,yypvt[-3],yypvt[-2],yypvt[-0],tree1(N_Empty));} break;
  1828. case 181:
  1829. # line 388 "expanded.g"
  1830. {yyval = tree5(N_If,yypvt[-5],yypvt[-4],yypvt[-2],yypvt[-0]);} break;
  1831. case 182:
  1832. # line 390 "expanded.g"
  1833. {yyval = tree4(N_Case,yypvt[-5],yypvt[-4],yypvt[-1]);} break;
  1834. case 184:
  1835. # line 393 "expanded.g"
  1836. {yyval = tree4(N_Clist,yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1837. case 185:
  1838. # line 395 "expanded.g"
  1839. {yyval = tree4(N_Ccls,yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1840. case 186:
  1841. # line 396 "expanded.g"
  1842. {yyval = tree4(N_Ccls,yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1843. case 188:
  1844. # line 399 "expanded.g"
  1845. {yyval = tree4(N_Elist,yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1846. case 189:
  1847. # line 401 "expanded.g"
  1848. {
  1849.         yyval = tree3(N_Create,yypvt[-0],yypvt[-0]);
  1850.         } break;
  1851. case 190:
  1852. # line 404 "expanded.g"
  1853. {
  1854.         yyval = tree4(N_Elist,yypvt[-1],yypvt[-2],tree3(N_Create,yypvt[-1],yypvt[-0]));
  1855.         } break;
  1856. case 191:
  1857. # line 408 "expanded.g"
  1858. {Val0(yypvt[-0]) = putlit(Str0(yypvt[-0]),F_IntLit,0);} break;
  1859. case 192:
  1860. # line 409 "expanded.g"
  1861. {Val0(yypvt[-0]) = putlit(Str0(yypvt[-0]),F_RealLit,0);} break;
  1862. case 193:
  1863. # line 410 "expanded.g"
  1864. {Val0(yypvt[-0]) = putlit(Str0(yypvt[-0]),F_StrLit,(int)Val1(yypvt[-0]));} break;
  1865. case 194:
  1866. # line 411 "expanded.g"
  1867. {Val0(yypvt[-0]) = putlit(Str0(yypvt[-0]),F_CsetLit,(int)Val1(yypvt[-0]));} break;
  1868. case 195:
  1869. # line 413 "expanded.g"
  1870. {yyval = tree6(N_Sect,yypvt[-2],yypvt[-2],yypvt[-5],yypvt[-3],yypvt[-1]);} break;
  1871. case 196:
  1872. # line 415 "expanded.g"
  1873. {yyval = yypvt[-0];} break;
  1874. case 197:
  1875. # line 416 "expanded.g"
  1876. {yyval = yypvt[-0];} break;
  1877. case 198:
  1878. # line 417 "expanded.g"
  1879. {yyval = yypvt[-0];} break;
  1880. case 200:
  1881. # line 420 "expanded.g"
  1882. {yyval = tree4(N_Slist,yypvt[-1],yypvt[-2],yypvt[-0]);} break;
  1883.     }
  1884.     goto yystack;        /* reset registers in driver code */
  1885. }
  1886.